program PoinerMass;

{$APPTYPE CONSOLE}
var
m : array[0..99] of integer;
p : ^integer;
i : integer;
begin
  for i:=0 to 99 do
  begin
    new(p);
    p^ := i;
    m[i] := p^;
    dispose(p);
  end;
end.
 